object FieldFilterDlg: TFieldFilterDlg Left = 26 Top = 125 ActiveControl = RadioGroup1 BorderStyle = bsDialog ClientHeight = 185 ClientWidth = 494 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 Position = poScreenCenter ShowHint = True OnCreate = FormCreate TextHeight = 13 object OKBtn: TBitBtn Left = 412 Top = 8 Width = 77 Height = 27 Caption = '&OK' TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 412 Top = 40 Width = 77 Height = 27 Caption = '&Cancel' TabOrder = 1 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 412 Top = 72 Width = 77 Height = 27 TabOrder = 2 Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object Panel1: TPanel Left = 7 Top = 10 Width = 386 Height = 167 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object Text1: TLabel Left = 8 Top = 16 Width = 110 Height = 26 Caption = 'Select Records For Which Value Of' WordWrap = True end object Text2: TLabel Left = 8 Top = 50 Width = 113 Height = 13 AutoSize = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Text3: TLabel Left = 240 Top = 16 Width = 35 Height = 13 Caption = 'THAN' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Text4: TLabel Left = 240 Top = 72 Width = 27 Height = 13 Caption = 'AND' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False WordWrap = True end object Panel2: TPanel Left = 240 Top = 16 Width = 137 Height = 145 BevelOuter = bvNone TabOrder = 5 Visible = False object Memo1: TMemo Left = 0 Top = 8 Width = 129 Height = 105 Hint = 'Enter One Value Per Line Here' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( '') ParentFont = False ScrollBars = ssBoth TabOrder = 0 OnEnter = Memo1Enter OnExit = Memo1Exit end object BitBtn2: TBitBtn Left = 71 Top = 118 Width = 58 Height = 25 Hint = 'Remove Current Line' Caption = '&Remove' Enabled = False TabOrder = 1 TabStop = False OnClick = BitBtn2Click end object BitBtn1: TBitBtn Left = 7 Top = 118 Width = 58 Height = 25 Hint = 'Fill The List With All Values' Caption = '&Populate' TabOrder = 2 TabStop = False Visible = False OnClick = BitBtn1Click end end object RadioGroup1: TRadioGroup Left = 136 Top = 8 Width = 89 Height = 145 Caption = 'Is' Items.Strings = ( '<' '<=' '=' '>=' '>' 'Between' 'One Of') TabOrder = 0 OnClick = RadioGroup1Click end object Edit1: TFilterEdit Left = 240 Top = 40 Width = 120 Height = 20 Hint = 'Enter Text Here' TabOrder = 1 ValidChars = '[]' end object Edit2: TFilterEdit Left = 240 Top = 96 Width = 120 Height = 20 Hint = 'Enter Text Here' TabOrder = 2 Visible = False ValidChars = '[]' end object CurrencyEdit1: TCurrencyEdit Left = 240 Top = 40 Width = 120 Height = 24 Hint = 'Enter Numeric Value Here' DisplayFormat = ',0.00' Font.Color = clBlue Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False TabOrder = 6 Visible = False end object CurrencyEdit2: TCurrencyEdit Left = 240 Top = 96 Width = 120 Height = 24 Hint = 'Enter Numeric Value Here' DisplayFormat = ',0.00' Font.Color = clBlue Font.Height = -13 Font.Name = 'System' Font.Style = [] ParentFont = False TabOrder = 7 Visible = False end object DateEdit1: TDateEdit Left = 240 Top = 40 Width = 97 Height = 24 Hint = 'Enter Date Here' DateFormat = 'mm/dd/yyyy' Date = '__/__/____' MaxLength = 10 TabOrder = 3 Visible = False end object DateEdit2: TDateEdit Left = 240 Top = 96 Width = 97 Height = 24 Hint = 'Enter Date Here' DateFormat = 'mm/dd/yyyy' Date = '__/__/____' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 10 ParentFont = False TabOrder = 4 Visible = False end end end